home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / geos-archive / GEOS-D64 / GeoThek Spezial (19xx)(-)(de)[gt527a].d64 / d64-xtra-64-2.9 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  627b  |  13 lines
  1. 0 T=.:S=.:C=.:C$=CHR$(13):POKE53280,T:POKE53281,T:GOSUB11:INPUT"[158]SOURCE DEV#:";F:INPUT"[150]DEV# TO WRITE TO: ";D:PRINT:GOTO9
  2. 1 PRINT#1,"B-P 2 0":SYS2639:IFC=.THENRETURN
  3. 2 PRINT#1,"B-P 2 0":S=S+1:IFS<17THENRETURN
  4. 3 IFT=18THENM=18:GOTO7
  5. 4 IFT=25THENM=17:GOTO7
  6. 5 IFT=31THENM=16:GOTO7
  7. 6 IFT=36THENCLOSE3:CLOSE2:CLOSE1:GOTO9
  8. 7 IFS>M THENT=T+1:S=.:GOTO3
  9. 8 RETURN
  10. 9 T=1:S=.:C=.:M=20:INPUT"[150].D64FILE TO READ";F$:F$=F$+".D64":OPEN3,F,3,F$+",P,R":OPEN1,D,15:OPEN2,D,2,"#":PRINT#1,"B-P 2 0":GOSUB11
  11. 10 GOSUB1:C=C+1:SYS2656:PRINT#1,"U2 2 0";T;S:PRINT"TRACK  [159]"T;C$"SECTOR [158]   [157][157][157]"S;C$"BLOCKS "C:GOTO10
  12. 11 PRINT"[147][159]*** .D64 TO C=64 ***"C$"  BY E. KAZIBERDOV"C$"[153]   IMPROVED  1996"C$"  BY NIKOLAUS METZ"C$"    "F$:RETURN
  13.